home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 220 / 220.d81 / modeights boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  910b  |  24 lines
  1. 10 poke53281,0:poke53280,0:print"[147][159]"
  2. 12 poke214,10:print:printspc(12)"[204]oading files..."
  3. 15 dv=peek(186):ifdv<8thendv=8
  4. 37 poke55,0:poke56,56:clr:dv=peek(186):ifdv<8thendv=8
  5. 38 gosub61000
  6. 39 print"[144]load"chr$(34)"crazy 8s.pkd"chr$(34)","dv
  7. 40 print"[154]        [195] [210] [193] [218] [217]    [197] [201] [199] [200] [212] [211]"
  8. 50 print"[159]           [193] [199]ame of [195]ards for"
  9. 60 print"[159]       the [196]iscriminating [204]unatic[144]"
  10. 80 poke631,13:poke632,82:poke633,213:poke634,13:poke198,4:end
  11. 10000 f$="modeights boot":d=peek(186):ifd<8thend=8
  12. 10010 close15:open15,d,15,"s0:"+f$:close15:savef$,d:verifyf$,d:end
  13. 61000 printchr$(147):poke214,15:print
  14. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  15. 61120 print"  [152]                                    "
  16. 61130 print"      [205] [207] [196] [195] [210] [193] [218] [217]   [197] [201] [199] [200] [212] [211]   "
  17. 61140 print"     [207]riginal [208]rogram by [202]ason [207]lds   "
  18. 61150 print"    ([207]riginally [208]ublished on [204][211] #66)  "
  19. 61160 print"     1-719-537-6484 or 1-719-537-6[207][207]9 "
  20. 61170 print"            www.loadstar.com          "
  21. 61180 print"                                      "
  22. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  23. 61195 return
  24.